home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.10 / demo / vdx.i / vd7.i < prev    next >
Text File  |  1995-04-19  |  2KB  |  94 lines
  1.  
  2.     { * VD7.i * }
  3.  
  4.  
  5. Function VD7 : String;
  6.  
  7.  
  8. Const
  9.  
  10.   ObjectPoints : ARRAY[0..20] OF Short =  { Punkt-Tabelle }
  11.   (
  12.    5,
  13.      0,   0,-400, 0,
  14.    300,-300, 200, 0,
  15.   -100,-100, 200, 0,
  16.   -300, 300, 200, 0,
  17.    100, 100, 200, 0
  18.    );
  19.  
  20.   ObjectAreas : ARRAY[0..55] OF Short = { Flächen-Tabelle }
  21.   (
  22.    5,
  23.     4,1, 1*4,2*4,3*4,4*4,1*4,      0,0,0,0,
  24.     3,2, 0*4,2*4,1*4,0*4,    0,0,0,0,0,
  25.     3,3, 0*4,3*4,2*4,0*4,    0,0,0,0,0,
  26.     3,4, 0*4,4*4,3*4,0*4,    0,0,0,0,0,
  27.     3,5, 0*4,1*4,4*4,0*4,    0,0,0,0,0
  28.   );
  29.  
  30.   ObjectMove : ARRAY[0..91] OF Short =
  31.   (
  32.    180,  0, 0,  0, 1,0,0,    { Positionierung und Animationspfad }
  33.    200,  0, 0, 82, 0,0,1,    { Positionierung und Animationspfad }
  34.    300,  0, 0,  0, 7,2,1,
  35.    200,  0, 0,-52, 4,1,1,
  36.                 { Zeit, move-x,-y,-z, rotx,roty,rotz, }
  37.  
  38.    200,  4, 5, -3, 1,0,1,
  39.    200, -4, 0,  3, 0,2,1,
  40.    280,  0,-5,  0, 1,1,2,
  41.  
  42.    100,-20, 0,  0, 0,0,3,
  43.    100, 40, 0,  0, 2,0,0,
  44.    100,-20, 0,  0, 3,1,2,
  45.  
  46.    100,  0, 0,  0, 7,8,3,
  47.    100,  0, 0,  0, 0,0,1,
  48.  
  49.    100,  0, 0,-99, 1,1,2,
  50.    END_1
  51.   );
  52.  
  53.  
  54.  
  55.   MyColTab : ARRAY[0..32] OF Short = { Farbtabelle }
  56.   (
  57.    0,  0, 0, 0,   { Register, Rot,Grün,Blau }
  58.    1,  8, 8,15,
  59.    2, 13,13, 0,
  60.    3, 12,12, 0,
  61.    4,  3,13, 3,
  62.    5,  2,12, 2,
  63.    6,  8, 8, 8,
  64.    7, 14,14,14,
  65.    -1
  66.   );
  67.  
  68.  
  69. BEGIN
  70.  
  71.    MyObject.Point_Data := Adr(ObjectPoints);
  72.    MyObject.Area_Data  := Adr(ObjectAreas);
  73.    MyObject.Move_Table := Adr(ObjectMove);
  74.  
  75.    MyWorld.flags := 0;
  76.    MyWorld.first := Adr(MyObject);
  77.  
  78.    { "Animationsscreen" öffnen }
  79.    MyViewStruct := OpenVScreen( Adr(MyVScreen) );
  80.    IF MyViewStruct = NIL THEN
  81.      VD7 := "Sorry, null Vektor";
  82.  
  83.    Error := SetColors( MyViewStruct, Adr(MyColTab) );   { Farben setzen }
  84.  
  85.    Error := AutoScaleOn( MyVScreen.ViewModes ); { Entzerrung für höhere Auflösung }
  86.  
  87.    Error := DoAnim( Adr(MyWorld) );             { Auf zur Animation!! }
  88.  
  89.    Error := CloseVScreen();                     { Bildschirm schließen }
  90.  
  91.    VD7 := "Is` mir schlecht ...";
  92. END;
  93.  
  94.